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DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
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MEW 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: SET command 
ABSTRACT: 


This module pupperts switching a terminal port from terminal Line 
to asynch DDCMP mode and vice versa. 


SooOooooooooooooooooo 
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: AUTHOR: 
; Meg Dumont 1-Feb-84 
: : MODIFIED BY: 
41 ; v03-003 MMD0327 Meg Dumont 31-Aug-1984 17:45 
: 3 Fix to clear UCBSL_FR4 field when swtiching back to a terminal 
44 ; V03-002 MMD0319 25-Jul-1984 15:38 
ri 3 Fix to call 1ocsve eTYCHAN’ before raising our IPL. 
47: v03-001 TMHOOO1 Tim Halvorsen 18-Mar-1984 
: 3 Fix to lock down code pages before executing high IPL code. 


S¥} TER TERAIMAL - Switch terminal port to or tren” ptener 13560-1958 $3: 4: i$ Fenives Ge Sec Soe een ten man: 4 Page db 


; ccbdef 
devdef 
4 $ddbdef 
5 s4pte f 
§ Sipldef 
Sjipidef 
8 Sprvdef 
$ssdef 
$ $ttdef 
$ttyucbdef 
$6 $ttyvecdef 
Sttymodem 
64 Sucbdef 
65 
6 
67 ; temp 
6 -PSECT SETSRWDATA,NOEXE,LONG 
52 45 56 49 52 44 4F 4E $9" 00 3 NODRV_NAME: .ASCIC /NODRIVER/ 
71 
i -PSECT SETSCODE,NOWRT 
74 i++ 
2: ;SWITCH_TO_DDCMP 
i i This routine does the actual switch. First using the channel assigned 
78 : we find out the virtual UCB for this device. Next 
79 ; we check the reference count in the virtual UCB to ensure it is not 
0 ; owned by anyone else. It does this by subtracting 1 from the reference 
1 3; count field. SET TERMINAL has a coganes assigned to the device so we can 
¢ account for one of the channels. If any other channess are assigned 
we can not allow the switch to occur. Please note that if this me F 
4 ; virtual i. (ie. VTAO Be gpos the sParerenes count in the UCB will be 
5 one and the switch w Ll. We check te see if the 


RSYNCH DD DbcAP CLASS AK, NODRIVER. - loaded, Next 

set fhe sperenr vate F fields in the UCB to #80 int to the *NODRIVER. 

; We also se bit * the DEVCHAR field to vet hest whet this 

; is an asycnh ddacp i. Finally , we call the port 

aang and RESUME entry points to ensure that there is  asthing outstanding 


SOOOooooooooooooa 


3 ; on the Line. 
3 INPUTS: 
3 4(ap) = Channel assigned to device 
9 OUTPUTS: 
9 RO = Status of the switch 
SS$_NORMAL - Suitch was made 
SS$_IVCHAN = Invalid channel 
SSS$"NOSUCHDEV = NODRIVER was not loaded 
SS$"DEVALLOC = Device was in use no switch is made 


Switch. to oddcap: 
pushr #*m<ri,r2.r3,0°4,r5> 
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SWITCH. TERMINAL - Switch terminal port to or from DECNET 15-SEP-1984 23:49:3 AX/VMS Macr 
y04~000 “ g-SEp-1 984 #7 :40;29 LCE TUTE. sReaew TCHTRM.MAR; 1 
AC 107 movl 4(ap),r0 3; get the channel number 
00000086" ¢F 8 8 1 8 jsb 9" ioc$verifychan 5 ete to get CCB from channel 
1 setipl switch ddcmp_ipl 3 ptpenie or synch to IODATA BASE 
1 : & lock down this code 
50 O13C 8F ° 1 11 cmpw #ss$_ivchan,r0 :; If eql then not proper channel 
9 1A so beql Sw peh.ere 
33 1 O a FF mov ccb l yebirt) 3 ; Get the virtual UCB for device 
51 SCA & 1F 6114 subw3 #1 ,ucB$w_refc(r5),r1 ; If NEQ then channels assign 
rk 4 115 bneq switch ddcmp_err_inus ; do not allow switch 
50 O0A0 ) 6 116 movi ucbSl_El_phyucb(F5),r : Get the physical UCB 
55 ‘ 8 1 beql 10$ 5 : If eql field not setup 
mov r0,r 
5 113 108: ~- 1 ucb$b_dipl(r5) 3; Disable device interrupts 
50 00000000'GF 00 ; 4 120 movi “no$gl_dpt.r ; Get the address of the Nodriver dp 
9 1 121 beql switch_ddcmp_not loaded : If eql driver not loaded 
51 16 A0 3 dD «61 § movzwl dpt$w_vectortr0) ri ; Get the offset of the class vector 
5 27 Cc 41 1 addl2 so ri.r ; Get the addr of the class vector a 
0114 C€ ) 44 126 movl r0,ucb$l_tt_class(r5) ‘ get asynch ddcmp vector address 
B10 C 60 0D 49 125 movi class_getnxt(r0) ,ucb$l_tt_getnxt(r5) ; Set Asynch ddcmp getnxt 
0110 C¢ 04 A D 04E 1 § movl class_putnxt(r0) ,ucb$l_tt gutastirs) 3: Set asynch ddmcp putnxt 
0088 C5 10 AQ DO 0054 1 movil class_ddt(r0) ,ucb$l_ddt(r5 ; Set DDT address 
OOA8 C C SA 3 clrq ucb$q_tl brkthru(rs ; Clear class drivers dependant fie 
51 28 a5 4 05 1 mov l ucb$l gdb (r5) 01 3 Get 
OC Al 1 OD 06 130 movi r1,ddb$l_ddt(r1) ; Reset the DDT 
38 AS 000 8F AB 006 131 bisw2 #dev$m Ret -usd®) devchar(r5) : Set that this is a network device 
50 118 cS) so of 1 ¢ mov ucb$l_Ett_port(r5),r0 ; Get port vector table 
. 24 16 0071 1 sb @port_abort(r0) ; Call abort to clear Line 
50 O118 C DO 0074 134 movl ucb$l_tt_port(r5),r0 ; Get port vector table 
2480 16 BrP 132 .. , a@port_resume(r0) ; Call resume to restart Line 
se 
3E O7F 1 5 seer” #*n<ri,e2.cr3.74,r5> 
50 8601 3 +H ; 3 Soren #ss$_normal,r0 
re 
085 140 
Base 141 switch err: 
85 16 setipl #0 
3— BA 8 14 popr #*n<ri,er2,c3,°4,r5> 
04 p 133 ret 
138 ewltchddcag. err inuse: 
0 14 setipl #F 
Ze 193 popr #*m<ri,r2,r3.74,r5> 
50 0860 BF 3¢ 14 movzwl #ss$_devalloc.ré 
Bie 
96 13 sui tch_ddcap_not loaded: | 
38 1 setipl #0 
Ze 7 9 154 popr #*m<ri,r2.r3.r4,r5> 
50 0908 8F C H; 155 movzwl #ss$_nosuchdev,r0 
04 ~ 137 ret 
Al 1 8 switch ddcmp_ipl: ; Used to fault in code & 
00000008 a Fes long ipl$_synch : lock down pages simultaneously 
ns 161 ;++ 
A 183 7 SWITCH_TO_TERMINAL 
AS 1635; 
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3; This routine does the actual switch. First using the channel assigned 

3 we find out the virtual UCB for this device. Next 

3 we check the reference count in the virtual ute to ensure it is not 

3 owned by anyone else. It does this by subtracting 1 from the reference 
3; count field. SET TERMINAL has a channel assigned to the device so we can 
3; account for one of the channels. If ae other channels are assigned 

3 we can not allow the sw os to occur. Please note that if this truly a 
3 virtual UCB (ie. VTAO var ety? the reference count in the UCB will be 
3 greater than one and the sw ch will fail. Next we 

3 set the appropriate fields in the UCB to point to the terminal class 

: driver. We clear the NET bit in DEVCHAR to reflect that this 

; is once again a terminal. It will also call the port at its ABORT and RESUME 
3 entry ; points to ensure that there is nothing outstanding on the Line. We 
3 must also ensure that the terminal is put back to normal which means 

3 carling she terminal class driver at its SETUP_UCB entry point to reset 
5 


oar 
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; the CLASS dependant portion of the UCB, and calling the PORT driver at 
; its DS_TRANS entry point to ensure that the modem signals were reset properly. 


INPUTS: 
4(ap) = Channel asignned to device 


OUTPUTS: 
RO = 


COOOOOCOOCOoOoo 


>>P>>r>rrrrrrrrrrrrrrrrr,r 


tus of the switch 
SS$_NORMAL = Switch was made 
SS$_DEVALLOC = Device was in use no switch is made 


ond eh ab a PS a tS a tt a 8 a ts 8 tt et lt 


PBOOOOOOO0O0 0000000000 0969 09 09 09 09 0909 09 SII INI NINO OO 


OAS witch_to_terminal:: 
0000 AS -wor 
3 BB OO0A7 pushr #*m<ri,r2,r3.r4,r5> 
50 04 AC 00 QOA9 movl 4(ap),r0 ¢ get the channel number 
00000000'GF 16 Boag jsb g*ioc$verif chan ; Call to get CCB from channel 
0B setipl switch_terminal_ipl : Disable for synch to IODATA BASE 
OBA : & lock down this code 
50 013C 8F B81 QOOBA cmpw #ss$_ivchan,r0 3; If eql then not proper channel 
C6 «613 F beql switch_err 
55 61 OD 0C1 mov l cob$l_ucb(r1),r5 ; Get the virtual UCB for device 
51 5C AS O01 A 0C4 subw3 #1 ,ucb$w_refc(r5).r1 3; If EQL then no channels assign 
g 1 C9 beql 5$ 3: allow switch 
00 g 31 cB brw switch_terminal_err_inuse : Else do not allow switch 
50 00A0 D C 5$: mov vebSl_El_phyucbUrs) .r0 : Get the physical ucB 
55 3 . 4 beat igs 5 : If eql field not setup 
mov r0,r 
D8 10$: setipl ucb$b_dipl(r5) 3; Disable device interrupts 
50 00000000'GF 90 D mov l qi tgySal_dot rg : Get the address of the TTldriver dp 
51 __1€ AO E mov2wl tSw_vectorir »,r1 : Get the offset of the class vector 
30 2 C E 10 addl2ri,r0 3; Get the addr of the class vector a 
0114 € 3 D EA 11 movl r0,ucb$l_tt_class(r5) ; Set terminal class vector address 
1% cS 6 D EF \¢ movl class_getnxt(r ) ,ucb$l_tt_getnxt(r ) ; Set terminal class getnxt 
ay C 04 A D F4 1 mov l class_putnxt(r0) ,ucb$l_tt putnat(r) 3: Set terminal class putnxt 
CS 110A b FA 18 movl class_ddt(r0) ucbst ddt(r5 ; Set DDT address 
OOA8 C C 0 215 clrq  ucb$q~tl_brkthru(r5) : Clear class drivers dependant fie 
14 AS D4 0104 1 clrt = ucb$L>frS(r5) : Clear FR4 because the class port 
107 1 : interface uses this for fork info 
51 28 AS 8 107 18 mov l ucb$t db(r5).r1 : Get DDB 
OC Al 3} D 1 1 mov l r1,ddB$l_ddt(r1) ; Reset the DDT 
38 AS} «2000 8F AA O10F 20 bicw2 #dev$m_net,ucb$l_devchar(r5) ; Clear no longer a network device 
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42 A FIC B 
8 MLE B 
ae 

50. 60118 CSOD 

¢ 24 1 

50. 0114 € D 

9 } 1 

50 «(0118 C Dd 
8 16 

0B 44 a5 1 iH 
51. 0 A 
50. 0114 € dO 
oc BO 16 

3E 

50. (0 C 
04 
3E =6BA 
50 460840 8F $C 
04 
00000008 
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WW TM ONES &Womm CBWODMOWOOuW 


20$: 
oem 


setip 
opr 


ret 


- long 
- END 


CNAME WN OOO NAULS WHO OONOULS Wi 


PRP RRR RR PW 


novzbl fine ensue 


aah #ss$ _normal, r0 

re 

aurten, Soreiant. err_inuse: 
Sovanl #ss$ _devalloc, r6 


switch_terminal_ipl: 


re 


ucb v. tt adesize $e" te devout det por Reset pege si size 


ucb$l -tt. port(r rt vector 
@port_abort(r0) Call Pehert to A, y line 
ucb$ tt port irs), r0 Get port vector table 
@port_resume(r0) Call resume to restart line 


ucb$l- “tt sc lass(r5) 


; Get the class vector table 
cent teport ucb(r6) 


; Reset the ucb for sorpinat driver 
; Get port vector table 
ges resume to restart Line 


r0 
uebst _devdepend(r5), bo 


3; Get the class vector table 
3; Reset the modem control 


pacrt, pty r3,r4,r5> 


#*m<ri,r2,73,74,r5> 


3; Used to fault in code & 


“ipl$_ synch : lock down pages simultaneously 


SSS_DEVALLOC 
3S$_IVCHAN 


SS$_NOSUCHDEV 
SWITCH_DDCMP_ERR_INUSE 
SWITCH_DDCMP_ 
Sul TCH. “PRR <NOTLOADED 


SWITC 
Sui TCH. =TERRINAL ~FRR. INUSE 


UCBSW_TT_DESIZE 


PSECT name 


4 ABS . 
SABSS 
SETSRWDATA 
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Allocation 


0000000 
$oges 
0000009 


x 03 
xX 03 
R 02 
x 03 
R 03 
R 03 
R 03 
R 03 
R 03 
R 03 
RG 03 
RG 03 
x 03 


Attributes 

NOPIC USR 
NOPIC  USR 
NOPIC USR 


6-SEP-1 


CON 
CON 
CON 


1986 fi:so:a9 EetGUte. Se 


ABS 
ABS 


LCL 
LCL 
LCL 


Zzs 
oo 
Pa 


x 
OgHR NOE XE 
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RD 
RD 


v04-00 Page (> 


7S fe NORD NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
WRT NOVEC LONG 


el 
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Psect Synopsis a 6-SEP- =1382 $7:49:29 Ler iUTL. SRE TSW) TCHTRM, MAR; 1 . §) 


SETSCODE 00000163 (¢ 355.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! Per formance indicators ! 


monn entaeaeeewan se aae eon ona} 


Phase Page faults CPU Time Elapsed Time 
Initialization 11 :00:00.09 :00:00.71 
Command processing i} : ‘09: 9 8: 0:05:31 
cyabol eabt . 4 3 00:14. 0:00:44. ¢ 
e sor $ $ ° : H os 
bes . 74 : 9 ‘ 8: §:98-8) 
wd table output 7 0:00:00. 0:00: 8-08 
Psect synopsis output 3 g: 0:00.03 8298: 0.03 
Cross-reference output :00:00.00 0:00:00.00 
Assembler run totals 581 00:00:20.26 0:01:08.50 


The working set Limit was 1390 pages. 
81109 ag (159 pages) of virtual memory were used to buffer phe intermediate code. 
There were 90 pages of symbol table space ot \ecated to hold 1633 non-local and 4 local symbols. 
48 source lines were read in Pass 1, producing 16 object records in Pass 2. 
pages of virtual memory were used to define 22 macros. 
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Macro Library name Macros defined 

$gssegu: CLIUTL.OBJJCLIUTL.MLB;1 0 
$255$DUA SYS.OBJJLIB.MLB; 1 10 
Etta ESvSi IBISTARLET. MLB;2 ; 

Tovaie (all Libraries) 1 


1744 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$: SWI TCHTRM/OBJ=OBJ$:SWITCHTRM MSRC$:SWITCHTRM/UPDATE=(ENHS$: SWI TCHTRM) +EXECMLS$/LIB+LIB$:CLIUTL/LIB 
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